<%

if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end If

Sub TypeShow(S_KEY)

Set S_CRUMB=new RZCrumb
S_CRUMB.Typeid=S_RZPARAM.Typeid
If S_RZPARAM.Keyword<>"" Then 
S_CRUMB.Str=getstr("lang_query")&"-"&S_RZPARAM.Keyword
End If 

SysInclude(GetTemplateName(S_RZPARAM.Process,S_RZPARAM.Typeid))


If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub
%>